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ee 90} 0 MODULE INIMFD GUAsE es “a : 
; 5 808 IDENT vone 888° 3 
te 004 )s | : 
ee 005 1 BEGIN ; 
bas aoe | : 
; 007 1! PF 
3 8 sia ! Vee ee RARER RARE AARAAAAAAAAA AERA RERAAAA ETERS Ps 
: '@ ® Py 
: 10 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * | ; 
; 11 0011 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * : 
3 i pots : i: ALL RIGHTS RESERVED. * . 
: ' y Py 
; 14 0014 1 !* noe SOFTWARE IS uites UNDER A LICENSE AND MAY BE USED AND tog * : 
; 15 0015 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 2 
: 16 0016 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY ER * ; 
: 17 0017 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * . 
; 18 0C18 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * . 
$ sith : ‘a TRANSFERRED. * . 
Z '@ ® Ps 
: 21 0031 1 !e He gre IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * . 
: $$ 00 ¢ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT “ . 
3 Si 0034 : :* CORPORATION. e ° 
: 'e ® Ps 
: 25 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS ® . 
: 26 0026 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * . 
Wer 4 0027 1 !* * . 
; 0028 1 !* * . 
: $3 54 LE eee Ree EREERAEAAA AAAS Ps 
; 00 1 : 
3 34 0031 1 !++¢ 3 
,- p03¢ 1! 3 
; 0033 1! FACILITY: INIT Utility Structure Level 1 ; 
; | 634 0034 1! : 
3; 39 0035 1 ! ABSTRACT: ; 
; $$ 0036 1! : 
5 i it £4 ; : This routine writes the initial master file directory. : 
; 3 0039 1 i ENVIRONMENT: 3 
:; 40 0040 1! : 
; 6) 0041 1! STARLET operating system, including privileged system services ; 
3; § ppg 7% and internal exec routines. ; 
Be 0045 1! : 
> 44 0044 1 i-- ; 
3; 8 045 1! | ° 
. 46 pose ,: | $ 
3 rtf 944 : : AUTHOR: Andrew C. Goldstein, CREATION DATE: 14-Nov-1977 19:19 

; $8 ph : REVISION HISTORY: 

3 24 51 1! Andrew C. Goldstein, 5~Jan=1978 19:17 

; 2g 26 ’ : X0002 - Correct file ID's in MFD | 

: ee - = Andrew C. Goldstein, 14-Jan-1978 0:37 

: 5 2? : - Directory structure change | 

: 3§ p39 1! Andrew C. Goldstein, 23-May-78 11:33 | 


iBeSep-19R4 01:45:57 WARCHT BLise=32 v4iO-742, 1 Page (2 
x0004 = Add Structure Level 2 reserved files 


Ange . C. Goldstein, 7-Jun-78 20:50 
000 Add structure Level 
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IBRARY BE tard rast gL 32" 
EQUIRE ‘SRC$:1 
EQUIRE 180s: tVMSLiB. OBJ JINITMSG.832'; 
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1e=8ep=1986 12:35:15 DISKSVMSMASTERSCINIT <SRCIINIMFD.B32:1°%" (23. 
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: oH bey i 
3 a6 ! } The following are the records of the initial MFD for structure level 1. ; 
: 76 494 1 !- ; 
; 495 1 : 
3 7 £38 1 BIND ; 
: 7 497 1 INITIAL_MFD1 = PLIT ( 2 
; 78 498 1 ' index file ; 
: 79 49 1 WORD (1, 1, 0) ' file ID , 
; 80 500 1 WORD (%RAD5O_11 "INDEXF SYS"), i file name ; 
; 4 28) : WORD (1), ! version number ‘ 
5 BS 0808 1 ! storage bitmap file ; 
; 84 0504 (1 WORD (2, 2, 0) ' file ID ’ 
:; «85 0505 1 WORD (ZRADS0_11 "BITMAP SYS"), i file name F 
; 0506 1 WORD (1), ' version number ; 
: 687 0507 1 : 
ae -|-| 0508 #1 ' bad block file : 
3 89 0509 1 WORD (3, 3, 0) ! file ID : 
; 690 0510 1 WORD (%RAD50_11 "BADBLK SYS"), i file name ; 
3 91 0511 1 WORD (1), ' version number ; 
5 3 Bale 1 : 
; g 051 1 ' MFD (itself) : 
3 94 0514 #1 WORD (4, 4, 0) ' file ID 2 
: «95 0515 1 WORD (zRAD59_11 '000000 IR"), i file name ; 
5; & 0516 1 WORD (1), ' version number 3 
; | «69? 0517 +1 3 
; 0518 1 ' core image file : 
3 99 0519 1 WORD (5, 5, 0) ' file ID : 
: 100 0520 1 WORD (ZRADS0_11 ‘CORIMG SYS"), i file name ; 
: 101 0521 #1 WORD (1) ' version number E 
$ 198 05 ¢ 1 3 3 
: 10 05 1 3 
3; 6104 0524 1 !+4 - 
: 105 0525 1! 3 
; 106 0526 1 ! The following are the records of the initial MFD for structure level 2. : 
: 107 0527 1! F 
: 108 0528 1 !- 3 
: 109 0529 1 $ 
s 110 0530 1 BIND é 
¢ 111 0531 «1 INITIAL_MFD = PLIT ( $ 
3 4 4 3236 1 ' MFD (itself) $ 
: 11 B23 1 WORD (20). ' record byte count 3 
: 1146 534 (1 WORD (1), ' version it 3 
3s 6115 0535 1 BYTE (0) ! flags 3 
: 116 B36 1 BYTE (105 ' mame byte count PF 
: 117 0537 1 BYTE ('006000.D1R"), i mame string : 
: 118 0538 #1 WORD (1), ' version number 3 
; #4119 539 1 WORD (4, 4, 0), ' file ID é 
g 130 540 1 3 
: 121 541 1 ' backup journal file é 
: 1$¢ 24¢ 1 WORD (ee). ' record byte count 3 
,. % 5435 1 WORD (1), ' version Limit $ 
: ise 0544 1 BYTE (0) ' flags é 
> 125 0545 1 BYTE (105 i mame byte count : 
: 126 0546 1 BYTE ("BACKUP.SYS'), i mame string : 
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record b 
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s 4 4 1 ' yolume set List file 
; 185 5 1 WORD (22), i record byte count 
4 pi ee. teh 

cis 0 1 BYTE (105, i tom byte count 

; 1 BYTE (*VOLSET.SYS") ' name s , ng 

9 1 1 WORD (1), ' version number 

: 13 ot ! WORD (6, 6, 0), ! file ID 

; 138 O68 i WORD (-1) ! end marker 

: 195 0615 1 ); 
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GLOBAL ROUTINE INIT_MFD : NOVALUE = 


le 
' 
i FUNCTIONAL DESCRIPTION: 
This routine writes the initial master file directory. 
CALLING SEQUENCE: 
INIT_MFD () 
INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
allocation table in INIDSK 
OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 
NONE 


SIDE EFFECTS: 
initial MFD written 


BEGIN 

EXTERNAL 
INIT_OPTIONS : BITVECTOR, ' command option flags 
MFD_CBN, i LBN of MFD file 
BUFFER : BBLOCK; ! 1/0 buffer 

EXTERNAL ROUTINE 
WRITE_BLOCK; ! write a disk block 


: Simply copy the MFD records into the buffer, zero filled and write it. 


A INET OPT IONSCOPT STRUCTURE J 


CHSCOPY (, (INITIAL_MFD1-4)#4, INITIAL_MFD1, 
aye 0, 512, BOFFER) 


CHSCOPY (, (INITIAL _MFD-4)*4, INITIAL_MFD, 
. 512, BOFFER); 


WRITE_BLOCK (.MFD_LBN, BUFFER); 
END; ! end of routine INIT_MFD 
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p 
JINIMFD.B32;1.9 (3) 


tH Yul 
- IDENT \v04-000\ 
-PSECT SPLITS,NOWRT,NOEXE,2 


go000014 9000 . LONG ; ; 
0099 00 1 091 004 P.AAA: WORD 1, 0 : ; 
7A BB 00 00 6 3A 7% 900A [RADSO \INDEXF = SYS\ : ; 
0000 0002. b962 00i% "WORD. 2, 2, 0 ; 
7A BB 00 00S) 9B OD Fe O04 "RADSO (BITMAP SYS\ : ; 
9001 022 “WORD 1 : ; 
0000 0003 0003 00024 "WORD 3, 3, 0 : : 
7A BB 00 00 OF 6B OC AC 00 A "RADSO \BADBLK  SYS\ : : 
001 00032 “WORD 1 : | ; 
0000 0004 0004 00034 "WORD 4, 4, 0 : ; 
1A 7A 00 00 CO 4E CO 4E O003A =RADSO \600600 DIR\ : | ; 
0001 00042 “WORD 1 : : 
0090 0005 0005 0044 “WORD 5, 5, 0 : F 
7A BB 00 00 3A 4F 15 2A Q004A -RADSO \CORIMG SYS\ ; ; 
90 1 00052 "WORD 1 : : 
00000037 00054 “LONG 55 : : 
0016 00058 P.AAB: :WORD 22 : : 
0001 00054 “WORD 1 : ; 
00 0005¢ “BYTE 0 oa 
A 00050 BYTE 10 : : 
52 49 44 26 30 30 30 30 30 30 0005 ASCII \000000.DIR\ : : 
0001 0006 WORD 1 : : 
0000 0004 0004 0006A "WORD 4, 4, 0 : F 
0016 00070 “wORD 28 F ; 
0001 00072 "WORD 1 : ; 
00 00074 "BYTE 0 ; : 
OA 00075 "BYTE 10 : ; 
53 59 53 2—E 50 55 4B 43 41 42 00076 “ASCII \BACKUP.SYS\ : : 
9001 90080 "WORD 1 : : 
0000 0008 0008 0082 “wORD «8, 8, 0 : ; 
0016 000 “WORD 22 : : 
0001 O008A “WORD 1 : 
90 008C "BYTE 0 : 
A 00080 BYTE 10 ; 
3350 53 2 oe ee 4k wm 8 O0BE "ASCII \BADBLK.SYS\ : 
9001 09 WORD : 
0000 0003 0003 9A “WORD 3, 0 : 
0016 AN “WORD 28 : 
0001 O00A2 "WORD 1 : 
00 OOA4 “BYTE 0 : | 
A AS BYTE 10 3 | 
53 59 53 2E 47 4F 4C 44 41 42 Ab "ASCII \BADLOG.SYS\ : 
900 B “WORD 1 : | 
0000 0009 009 B "wORD 9, 9, 0 : | 
0 16 “WORD ee : | 
001 BA “WORD : 
0 BY 9 : 
A YT 0 : 
42 0 \ ; 
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3; Routine Size: $SCODES + 0000 


1 
| 
0 

10 
\CONTIN. .SYS\ 
7, 7, 0 

¢2 
0 
10 
ronerne ~SYS\ 
5, 5, 0 

26 
1 
0 
10 
ere ~SYS\ 
45 

28 
1 
0 
10 
 heaeechda -SYS\ 
6, 6, 0 
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-{ 


P.AAA 
P.A 


ma 


AB 
INIT_OPTIONS, MFD_LBN 
BUFFER, WRITE_BLOCK 


SCODES,NOWRT ,2 


INIT MFD 
BUFFER, R6 
INIT. OPTIONS*3 


Save R2,R3,R4,R5,R6 


eee INITIAL_MFD1-4 
RO, INITIAL_MFD 


ose INITIAL_MFD~4, 
RO, INITIAL_MFD 


MFD_LBN 
#2, WRITE_BLOCK 


a0" 84512, BUFFER 


RO 
#0, #512, BUFFER 


d 65 
INIMF 16-Sep-1984 01:45:37 VAX-11 Bliss-32 V4.0-7 
tO. O80 12-808- 1382 93:92:32 DISKSVMSMASTER:CINIT.S 
3 73. «1 
; 5 74 1 END 
3 6 675 0 ELUDOM 
: PSECT SUMMARY 
; Name Bytes Attributes 
: SPLITS 308 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, p afeeeied | Derg b 4 fs 
: SCODES 59 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
; Library Statistics 
B leah glee oe ehcp A> ye 6 Se Flea ela Symbols -------- Pages Processing 
3 File Total Loaded Percent Mapped Time 
: .$255$DUA28: CSYSLIBILIB.L32;1 18619 4 0 1000 00:01.9 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$: INIMFD/OBJ=OBJ$: INIMFD MSRC$: INIMFD/UPDATE=(ENHS: INIMFD) 
Size: 59 code + 308 data bytes 
T 00:10.9 


Run Time: :10. 
Elapsed Time: 00:23.4 
Lines/CPU Min: 71 
Lexemes/CPU-Min: 43611 
ry Used: 87 pages 
Compi.ation Complete 
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